home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / libraries / tri12dev.lha / Triton / Developer / M2Amiga / TritonL.def < prev   
Encoding:
Modula Definition  |  1995-01-14  |  3.9 KB  |  131 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.  | 
  3.  | $VER: TritonL.def 1.00 (06.09.94) by Stefan Schulz
  4.  | 
  5.  | Module          : TritonL
  6.  | Last Modified   : Tuesday, 06.09.94
  7.  | Author          : Stefan Schulz
  8.  | Actual Revision : 1.00
  9.  | 
  10.  | 
  11.  | Description
  12.  | -----------
  13.  |   - Interface to Triton.library
  14.  |     Triton is copyright © 1993, 1994 by Stefan Zeiger
  15.  | 
  16.  | Requirements
  17.  | ------------
  18.  |   - triton.library V1.1
  19.  | 
  20.  | Language
  21.  | --------
  22.  |   - M2Amiga Modula 2 Software Development System
  23.  |     © Copyright by A+L AG, CH-2540 Grenchen
  24.  | 
  25.  | Revision 1.00  \06.09.94\
  26.  |  - initial revision
  27.  |   
  28.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  29.  
  30. DEFINITION MODULE TritonL{"triton.library",1};
  31.  
  32. (* IMPORTS ********************************************************************** *)
  33.  
  34. IMPORT  d       : TritonD;
  35.  
  36. IMPORT  ed      : ExecD,
  37.         id      : IntuitionD,
  38.         R,
  39.         ud      : UtilityD;
  40.  
  41. (* ****************************************************************************** *)
  42.  
  43. (* ------------------------------------------------------------------------------ *)
  44. (* library name and version                                                       *)
  45. (* ------------------------------------------------------------------------------ *)
  46.  
  47. VAR     tritonVersion   : INTEGER;
  48.         tritonBase      : ed.LibraryPtr;
  49.  
  50. CONST   tritonMinVersion= 1;
  51.         tritonName      = "triton.library";
  52.  
  53.  
  54. PROCEDURE AutoRequest
  55.               ( app{R.A1}               : d.TrAppPtr;
  56.                 lockproject{R.A0}       : d.TrProjectPtr;
  57.                 requestTRWinTags{R.A2}  : ud.TagItemPtr) : LONGCARD; CODE -84;
  58.  
  59. PROCEDURE CloseProject
  60.               ( project{R.A0}   : d.TrProjectPtr ); CODE -36;
  61.  
  62. PROCEDURE CloseWindowSafely
  63.               ( win{R.A0}       : id.WindowPtr  ); CODE -126;
  64.  
  65. PROCEDURE CreateApp
  66.               ( appTags{R.A1}   : ud.TagItemPtr ) : d.TrAppPtr; CODE -96;
  67.  
  68. PROCEDURE DeleteApp
  69.               ( app{R.A1}       : d.TrAppPtr    ); CODE -102;
  70.  
  71. PROCEDURE EasyRequest
  72.               ( app{R.A1}       : d.TrAppPtr;
  73.                 bodyfmt{R.A2}   : d.StrPtr;
  74.                 gadfmt{R.A3}    : d.StrPtr;
  75.                 tagList{R.A0}   : ud.TagItemPtr ) : LONGCARD; CODE -90;
  76.  
  77. PROCEDURE FirstOccurance
  78.               ( ch{R.D0}        : CHAR;
  79.                 str{R.A0}       : d.StrPtr      ) : LONGINT; CODE -42;
  80.  
  81. PROCEDURE GetAttribute
  82.               ( project{R.A0}   : d.TrProjectPtr;
  83.                 id{R.D0}        : LONGCARD;
  84.                 attribute{R.D1} : LONGCARD      ) : LONGCARD; CODE -66;
  85.  
  86. PROCEDURE GetErrorString
  87.               ( num{R.D0}       : LONGCARD      ) : d.StrPtr; CODE -54;
  88.  
  89. PROCEDURE GetLastError
  90.               ( app{R.A1}       : d.TrAppPtr    ) : CARDINAL; CODE -132;
  91.  
  92. PROCEDURE GetMsg
  93.               ( app{R.A1}       : d.TrAppPtr    ) : d.TrMessagePtr; CODE -108;
  94.  
  95. PROCEDURE LockProject
  96.               ( project{R.A0}   : d.TrProjectPtr ); CODE -72;
  97.  
  98. PROCEDURE LockScreen
  99.               ( project{R.A0}   : d.TrProjectPtr ) : id.ScreenPtr; CODE -138;
  100.  
  101. PROCEDURE NumOccurances
  102.               ( ch{R.D0}        : CHAR;
  103.                 str{R.A0}       : d.StrPtr      ) : LONGINT; CODE -48;
  104.  
  105. PROCEDURE OpenProject
  106.               ( app{R.A1}       : d.TrAppPtr;
  107.                 tagList{R.A0}   : ud.TagItemPtr ) : d.TrProjectPtr; CODE -30;
  108.  
  109. PROCEDURE ReplyMsg
  110.               ( message{R.A1}   : d.TrMessagePtr ); CODE -114;
  111.  
  112. PROCEDURE SetAttribute
  113.               ( project{R.A0}   : d.TrProjectPtr;
  114.                 id{R.D0}        : LONGCARD;
  115.                 attribute{R.D1} : LONGCARD;
  116.                 value{R.D2}     : LONGCARD      ); CODE -60;
  117.  
  118. PROCEDURE UnlockProject
  119.               ( project{R.A0}   : d.TrProjectPtr ); CODE -78;
  120.  
  121.  
  122. PROCEDURE UnlockScreen
  123.               ( screen{R.A0}    : id.ScreenPtr  ); CODE -144;
  124.  
  125. PROCEDURE Wait
  126.               ( app{R.A1}       : d.TrAppPtr;
  127.                 otherbits{R.D0} : LONGCARD      ) : LONGCARD; CODE -120;
  128.  
  129.  
  130. END TritonL.def
  131.